for a in $(ls [0-9][0-9]); do Rscript plot.R $a; done
